﻿Imports System.Data.SqlClient
Module Modulo
    Public NombreTabla As String = "Direcciones"    ''REFERENCIAR NOMBRE DE LA TABLA A CONSULTAR
    Sub Main()
        ejemploSQL()
        Console.ReadLine() ''EVITA QUE SE CIERRE LA CONSOLA
    End Sub

    Public Function CadenaConexion() As String
        Dim csb As New SqlConnectionStringBuilder
        csb.DataSource = "(local)\SQLEXPRESS" ''POR DEFECTO EL NOMBRE DEL SERVIDOR ES SQLEXPRESS
        csb.InitialCatalog = "SG_COMANDERSQL"   ''NOMBRE DE LA BASE DE DATOS INICIAL A CONSULTAR
        csb.IntegratedSecurity = True

        Return csb.ConnectionString
    End Function
    Public Function TotalRegistros() As Integer
        Dim sCon As String = CadenaConexion()
        Dim sel As String = "SELECT COUNT(*) FROM " & NombreTabla
        Console.WriteLine(CadenaConexion)
        Using con As New SqlConnection(sCon)
            Dim cmd As New SqlCommand(sel, con)
            con.Open() ''ABRO LA CONECCION

            Dim t As Integer = CInt(cmd.ExecuteScalar())

            con.Close() ''CIERRO LA CONECCION

            Return t
        End Using
    End Function

    Sub ejemploSQL()
        Dim t As Integer = TotalRegistros()
        Console.WriteLine("El total de registros es: {0}", t)
        Console.WriteLine()
    End Sub

End Module
